00100		TITLE MSSIO ; ********* JUN 8,74 *********
00200	;;	INTERNAL GETFI2,FASTI2,LOOP
00205		INTERNAL GETFI2,FASTI2
00210		INTERNAL LOOK,LOOKD,LOOKF,PAC,UNPAC
00300	
00400	
00500		CH3←13
00600	
00700	DEFINE ERROR (MSG)
00800	<	JSA 16,.ERROR
00900		JUMP [ASCIZ/MSG/
01000	]
01100	>
01200	
01500	;CALL GETFI2(<FILE>,<0 OR -1>)  0=MSS,LCS  -1=WHERE YOU ARE.
01600	
01700	GETFI2:	0
01800		MOVE 0,@0(16)
01900		MOVEM 0,FILNAM
01910		MOVE 0,@1(16)
01920		MOVEM 0,PPNW#
02000		JSA 16,INTFIZ
02100		MOVE 0,[SIXBIT/DMD/]
02200		MOVEM 0,DIR+1
02300		JSA 16,LKUP
02400		SKIPA
02500		JRST GETF3
02600		SETZM DIR+1
02700		JSA 16,LKUP
02800		0
02900	GETF3:	JRA 16,2(16)
03000	
03100	LKUP:	0
03200		SETZM DIR+2
03300		SETZM DIR+3
03310		SKIPE PPNW	;0=MSS,LCS    NON-ZERO = WHERE EVER YOU ARE
03320		JRST LUP
03330		MOVE 0,[SIXBIT/DATLCS/]
03340		MOVEM 0,DIR+3
03400	LUP:	LOOKUP CH3,DIR
03500		JRA 16,0(16)
03600		JRA 16,1(16)
03700	
03800	INTFIZ:	0	;INITS DSK FOR INPUT
03900		MOVEI REGS
04000		BLT REGS+3
04100		INIT CH3,17
04200		SIXBIT/DSK/
0438"@@∧